inherited FConsultaTitulo: TFConsultaTitulo
  Left = 474
  Top = 152
  Caption = 'FConsultaTitulo'
  ClientHeight = 395
  ClientWidth = 533
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 533
    inherited BtnConsultar: TBitBtn
      Left = 13
    end
    inherited BtnLimpar: TBitBtn
      Left = 93
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      Left = 219
      Enabled = False
      Visible = False
    end
    inherited BtnSelecionar: TBitBtn
      Left = 169
      OnClick = BtnSelecionarClick
    end
    inherited BtnFechar: TBitBtn
      Left = 256
    end
  end
  inherited Panel1: TPanel
    Width = 533
    Height = 354
    object Label1: TLabel [0]
      Left = 8
      Top = 7
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
      FocusControl = BtnConsultar
    end
    object Label2: TLabel [1]
      Left = 80
      Top = 7
      Width = 55
      Height = 13
      Caption = 'Documento'
    end
    object lbFiltroData: TLabel [2]
      Left = 120
      Top = 92
      Width = 85
      Height = 13
      Caption = 'Data Lan'#231'amento'
      FocusControl = BtnConsultar
    end
    object Lbtitulo: TLabel [3]
      Left = 259
      Top = 61
      Width = 42
      Height = 13
      Caption = 'Entidade'
    end
    object Label5: TLabel [4]
      Left = 248
      Top = 7
      Width = 42
      Height = 13
      Caption = 'Situa'#231#227'o'
      FocusControl = BtnConsultar
    end
    inherited DBGrid1: TDBGrid
      Top = 117
      Width = 531
      Height = 216
      Font.Charset = ANSI_CHARSET
      Font.Name = 'Times New Roman'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 6
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Name = 'Times New Roman'
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = DBGrid1DrawColumnCell
      OnDblClick = DBGrid1DblClick
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CODIGO'
          Title.Alignment = taCenter
          Title.Caption = 'Codigo'
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DOCUMENTO'
          Title.Alignment = taCenter
          Title.Caption = 'Documento'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RAZAO'
          Title.Alignment = taCenter
          Title.Caption = 'Cliente'
          Width = 180
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATAVENCIMENTO'
          Title.Alignment = taCenter
          Title.Caption = 'Vencimento'
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Alignment = taCenter
          Title.Caption = 'Valor'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SALDO'
          Title.Alignment = taCenter
          Title.Caption = 'Saldo'
          Width = 65
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 333
      Width = 531
      TabOrder = 7
      object lbValor: TLabel
        Left = 312
        Top = 3
        Width = 217
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Total:  '
      end
    end
    object EdCodigo: TEdit
      Left = 8
      Top = 24
      Width = 60
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = EdCodigoKeyPress
    end
    object edDocumento: TEdit
      Left = 80
      Top = 24
      Width = 69
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
    end
    object cbxTipoBusca: TComboBox
      Left = 150
      Top = 24
      Width = 89
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 2
      Text = 'Igual'
      OnChange = cbxTipoBuscaChange
      OnKeyPress = cbxTipoBuscaKeyPress
      Items.Strings = (
        'Igual'
        'Contendo')
    end
    object dblookup: TDBLookupComboBox
      Left = 259
      Top = 80
      Width = 269
      Height = 19
      Ctl3D = False
      ListSource = DSEntidade
      ParentCtl3D = False
      TabOrder = 5
      OnKeyDown = dblookupKeyDown
    end
    object cbSituacao: TComboBox
      Left = 248
      Top = 24
      Width = 86
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 3
      Text = 'Todos'
      Items.Strings = (
        'Todos'
        'Pagos'
        'Em Aberto')
    end
    object GBLancamento: TGroupBox
      Left = 8
      Top = 56
      Width = 246
      Height = 52
      Caption = '  Data Lan'#231'amento  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
      object Label6: TLabel
        Left = 129
        Top = 20
        Width = 6
        Height = 13
        Caption = #224
      end
      object Label3: TLabel
        Left = 8
        Top = 20
        Width = 14
        Height = 13
        Caption = 'De'
      end
      object dtLanctoIni: TDateEdit
        Left = 30
        Top = 20
        Width = 88
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
      end
      object dtLanctoFim: TDateEdit
        Left = 145
        Top = 20
        Width = 90
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'SELECT'
      '      CONTASPAGAR.CP_CODIGO AS CODIGO,'
      '      CONTASPAGAR.CP_DOCUMENTO AS DOCUMENTO,'
      '      CONTASPAGAR.CP_DATAVENCIMENTO AS DATAVENCIMENTO,'
      '     CONTASPAGAR.CP_Saldo AS SALDO,'
      '      CONTASPAGAR.CP_VALOR AS VALOR,'
      '     CONTASPAGAR.CP_HISTORICO1 AS HISTORICO1,'
      '      CONTASPAGAR.CP_HISTORICO2 AS HISTORICO2,'
      '      FORNECEDOR.FORN_RAZAO AS RAZAO,'
      '      FORNECEDOR.FORN_FANTASIA AS FANTAZIA'
      '    FROM'
      '      CONTASPAGAR'
      '      INNER JOIN FORNECEDOR ON'
      '      (CONTASPAGAR.CP_FORNECEDOR=FORNECEDOR.FORN_CODIGO)'
      '    WHERE '
      '    (CONTASPAGAR.CP_CODIGO IS NOT NULL)')
    Left = 192
    Top = 305
    object QPesquisaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.CONTASPAGAR.CP_CODIGO'
    end
    object QPesquisaDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Origin = 'BASE.CONTASPAGAR.CP_DOCUMENTO'
      Size = 10
    end
    object QPesquisaVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.CONTASPAGAR.CP_VALOR'
      DisplayFormat = '#0.00'
    end
    object QPesquisaRAZAO: TStringField
      FieldName = 'RAZAO'
      Origin = 'BASE.FORNECEDOR.FORN_RAZAO'
      Size = 60
    end
    object QPesquisaFANTAZIA: TStringField
      FieldName = 'FANTAZIA'
      Origin = 'BASE.FORNECEDOR.FORN_FANTASIA'
      Size = 60
    end
    object QPesquisaSALDO: TFloatField
      FieldName = 'SALDO'
      DisplayFormat = '###,###,##0.00'
    end
    object QPesquisaHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Size = 52
    end
    object QPesquisaHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Size = 52
    end
    object QPesquisaDATAVENCIMENTO: TDateTimeField
      FieldName = 'DATAVENCIMENTO'
    end
  end
  inherited DSPesquisa: TDataSource
    Left = 240
    Top = 305
  end
  object DSEntidade: TDataSource
    Left = 264
    Top = 200
  end
end
